home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / DEFCON.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.4 KB  |  276 lines
  1. 0 POKE808,225:POKE774,100
  2. 1 Z=300:ZZ=2000
  3. 10 POKE53280,0:POKE53281,0:PRINT"[147]":POKE53272,21
  4. 30 PRINT"DIALING.....203/738-7685":FORX=1TO600:NEXTX
  5. 31 PRINT"1";:FORX=1TO100:NEXT
  6. 32 PRINT"2";:FORX=1TO200:NEXT
  7. 33 PRINT"0";:FORX=1TO1000:NEXT
  8. 34 PRINT"3";:FORX=1TO300:NEXT
  9. 35 PRINT"7";:FORX=1TO700:NEXT
  10. 36 PRINT"3";:FORX=1TO300:NEXT
  11. 37 PRINT"8";:FORX=1TO800:NEXT
  12. 38 PRINT"7";:FORX=1TO700:NEXT
  13. 39 PRINT"6";:FORX=1TO600:NEXT
  14. 40 PRINT"8";:FORX=1TO800:NEXT
  15. 41 PRINT"5";:FORX=1TO500:NEXT
  16. 42 PRINT:PRINT:PRINT"WAITING FOR CONNECTION....":FORX=1TO5000:NEXT
  17. 50 PRINTCHR$(12)
  18. 70 DIMA$(100)
  19. 80 PRINT"NORAD SYSTEM COMCON4 . . . . CONNECTED":GOSUB35100:FORJ=1TO400:NEXT
  20. 90 PRINT:PRINT
  21. 100 PRINT"AUTHORITY CODE-->";:FORX=1TO6:GOSUB450:NEXT
  22. 110 GOSUB470
  23. 120 PRINT"[147]"SPC(11)"NORAD PRIME ACCESS":PRINTSPC(11)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  24. 130 FORX=1TO1500:NEXT:PRINT:PRINT
  25. 140 PRINT"[147]"SPC(17)"WARNING":PRINTSPC(17)"[163][163][163][163][163][163][163]":FORX=1TO4:GOSUB35000:NEXT
  26. 150 PRINT:PRINT:PRINT"INCOMING CALLERS SUBJECT TO UNITED
  27. 155 [153]"STATES MILITARY ";
  28. 160 [153]"TRIBUNAL JUSTICE SYSTEM.ON
  29. 165 PRINT"FOREIGN ACCESS STRICTLY PROHIBITED.":PRINT
  30. 170 PRINT"ACCESS IS ON A NEED TO KNOW, EYES-ONLY"
  31. 180 PRINT"BASIS FOR ALL BUT COMMAND AUTHORITY.":PRINT
  32. 190 PRINT"AT THIS POINT, IMPROPER IDENTIFICATION":PRINT"WILL RESULT IN AUTOMATIC ";
  33. 200 PRINT"SURVEILLANCE OF";:PRINT"CONNECTING TELEPHONE LINE AND
  34. 210 [153]"INFORMATION SO GATHERED WILL BE PROVIDED";
  35. 220 [153]"TO THE PROPER DOMESTIC POLICE AND"
  36. 225 [153]"GOVERNMENTAL AGENCIES..................."
  37. 227 [129]X[178]1[164]15000:[130]
  38. 230 [141]470:ZZ[178]0
  39. 240 [153]"LOAD"[166]11)"NORAD PRIME ACCESS":[153][166]11)"TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB("
  40. 250 [153]:[153]
  41. 260 [153]"PLEASE ENTER YOUR EYES-ONLY CODE-->";:[129]X[178]1[164]6:[141]450:[130]X
  42. 270 [153]:[153]:[153]:[153]
  43. 280 [153]"CODE ENTERED IMPLIES COMMAND AUTHORITY"
  44. 290 [153]:[153]"ENTER YOUR VERIFICATION AS GIVEN IN...."
  45. 300 [129]X[178]1[164]200:[130]X
  46. 310 [153]">>>>>>BOOK 12RY-OLIVE<<<<<<"
  47. 320 [153]:[153]"ENTER -->";:[129]X[178]1[164]6:[141]450:[130]
  48. 330 [141]470
  49. 340 [153]"LOAD"[166]11)"NORAD COMMAND LEVEL":[153][166]11)"TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(
  50. 350 PRINT:PRINT
  51. 360 PRINT"SIR, COMCON4 REPORTS UPTIME VERIFIED FOR";:PRINT"NEXT ONE HOUR."
  52. 370 PRINT:PRINT"NORAD COMMAND CENTER CAN BE REACHED AT":PRINT"ANY TIME";
  53. 380 PRINT" WITH PASSWORDS AS PROVIDED IN":PRINT"THE LANGLEY PROTOCOLS."
  54. 390 PRINT:PRINT:PRINT"ENTERING DIRECT COMMAND MODE...."
  55. 400 GOSUB480
  56. 410 PRINTCHR$(12)
  57. 420 PRINT"[147]"SPC(11)"NORAD COMMAND LEVEL":PRINTSPC(11)"[163][163][163][163][163][160][163][163][163][163][163][163][163][160][163][163][163][163][163]
  58. 422 [153]"        "  "
  59. 430 GOTO400
  60. 440 END
  61. 450 GETA$:IFA$=""THEN450
  62. 455 PRINTA$;:A$=""
  63. 460 RETURN
  64. 470 FORX=1TO1000+ZZ:NEXTX:PRINT:RETURN
  65. 480 PRINT:PRINT:PRINT:PRINT:INPUT"===>";A$
  66. 490 IFLEFT$(A$,7)="LANGLEY"THENGOSUB550
  67. 500 PRINT:PRINT:PRINT"SEARCHING FOR SUBPROGRAM....":FORX=1TO2000:NEXT:PRINT"....RUNNING ";A$;
  68. 510 PRINT" ON CPU ";:PRINTINT(RND(1)*20)
  69. 520 A=INT(RND(1)*4+1)
  70. 525 FORJ=1TO1000:NEXT
  71. 530 ONAGOSUB700,950,1090,1240
  72. 540 RETURN
  73. 550 GOSUB470
  74. 560 PRINTCHR$(12):FORX=1TO4:PRINT;:GOSUB35100:PRINT;:NEXTX:PRINT"COMCON4....REQUEST RECORDED"
  75. 570 PRINT"PROCESSING. STANDBY"
  76. 580 FORX=1TO1000:NEXTX:GOSUB470
  77. 590 PRINT"[147]"SPC(10)"NORAD CENTRAL COMMAND
  78. 600 [153][166]10)"TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  79. 610 [153]:[153]:[153]"YOU HAVE REACHED LANGLEY CENTER":[153]
  80. 620 [153]"PRIMARY INTELLIGENCE VERIFICATION CODE, PLEASE==>";:[129]X[178]1[164]6:[141]450:[130]
  81. 630 [153]
  82. 640 [129]X[178]1[164]4:[153]:[130]:[141]35100:[153]:[153]"EXECUTIVE POWER CLAIM ENTERED . . . ."
  83. 650 [153]:[153]:[153]"AIR FORCE ONE FALLBACK ALERT!"
  84. 660 [153]:[153]:[153]"MR. PRESIDENT, PLEASE ENTER YOUR TOTAL":[153]"COMMAND AUTHORIZATION==>";
  85. 670 [129]X[178]1[164]6:[141]450:[130]
  86. 680 [153]
  87. 690 [137]1320
  88. 700 [143]    FIRST FAKE OUTPUT
  89. 710 [141]850
  90. 720 [141]470
  91. 730 [153]"LOAD"[166]11)"NORAD COMMAND LEVEL":[153][166]11)"TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(
  92. 740 PRINT
  93. 750 PRINT"   COMCON4 RUNNING...";A$
  94. 760 PRINT:PRINT:PRINT
  95. 770 FORX=1TOINT(RND(1)*5)+1
  96. 780 FORY=1TO20
  97. 790 PRINTINT(RND(1)*9+1);" ";
  98. 800 NEXTY:NEXTX
  99. 810 PRINT:PRINT:
  100. 820 INPUT"PRESS RETURN WHEN DECODED ==>";C$
  101. 830 RETURN
  102. 840 RESTORE
  103. 850 REM  COMMAND SUBROUTINE
  104. 860 PRINTCHR$(12)
  105. 870 PRINT"[147]"SPC(11)"NORAD COMMAND LEVEL":PRINTSPC(11)"[163][163][163][163][163][160][163][163][163][163][163][163][163][160][163][163][163][163][163]
  106. 880 [153]:[153]:[153]:[129]X[178]1[164]5:[135]B$(X):[130]X
  107. 890 [131]"GREEN","GOLD","CRIMSON","VIOLET","GREY"
  108. 900 [153]:[153]:[153]
  109. 910 [153]"USING BOOK ";[181]([187](1)[172]99[170]1);B$([181]([187](1)[172]5))
  110. 920 [153]:[153]:[129]J[178]1[164]1000:[130]
  111. 930 [140]:[142]
  112. 940 [142]
  113. 950 [143]    SECOND FAKE OUTPUT
  114. 960 [141]850
  115. 970 [153][199](12)
  116. 980 [153]"LOAD"[166]11)"NORAD COMMAND LEVEL":[153][166]11)"TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(
  117. 990 PRINT:PRINT:PRINT"COMCON4 RUNNING......";A$:PRINT:PRINT:PRINT
  118. 1000 FORX=1TOINT(RND(1)*100+1)
  119. 1010 FORY=1TOINT(RND(1)*10+1)
  120. 1020 Z=INT(RND(1)*26+65)
  121. 1030 PRINTCHR$(Z);
  122. 1040 NEXTY
  123. 1050 PRINT" ";
  124. 1060 NEXTX
  125. 1070 PRINT:PRINT:PRINT:INPUT"PRESS RETURN WHEN DECODED==>";A$
  126. 1080 RETURN
  127. 1090 REM  THIRD FAKE OUTPUT
  128. 1100 CK=CK+1
  129. 1110 GOSUB850
  130. 1120 PRINTCHR$(12)
  131. 1130 PRINT"[147]"SPC(11)"NORAD COMMAND LEVEL":PRINTSPC(11)"[163][163][163][163][163][160][163][163][163][163][163][163][163][160][163][163][163][163][163]
  132. 1140 [153]:[153]:[153]:[153]:[153]:[129]X[178]1[164]4:[153];:[141]35100:[153];:[130]:[153]"SIR -- YOUR PROGRAM, "A$
  133. 1150 [153]"IS NOT IN CPU CATALOG":[153]:[153]
  134. 1160 [153]"PLEASE RE-ENTER YOUR COMMAND AUTHORITY":[153]"CODE==>";:[129]X[178]1[164]6:[141]450:[130]
  135. 1170 [139]CK[177]4[167][137]1320
  136. 1175 [153]
  137. 1180 [153]"PROCESS A";:[129]X[178]1[164]3000:[130]:[153]"..COMPARING..";:[129]X[178]1[164]4000:[130]:[153]"ACCEPTED!"
  138. 1190 [153]:[153]"SIR, PLEASE CHECK YOUR PROGRAM CODES. COMCON4 IS PROGRAMMED"
  139. 1200 [153]"TO TERMINATE CALL ON FIFTH ILLEGAL PROGRAM CODE FOR"
  140. 1210 [153]"REASONS OF NATIONAL SECURITY UNDER EXECUTIVE ORDER STAR4."
  141. 1220 [129]X[178]1[164]7000:[130]
  142. 1230 [142]
  143. 1240 [143]    FOURTH FAKE OUTPUT
  144. 1250 [141]850
  145. 1260 [153][199](12)
  146. 1270 [153]"LOAD"[166]11)"NORAD COMMAND LEVEL":[153][166]11)"TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(
  147. 1280 PRINT:PRINT:PRINT:PRINT:PRINT
  148. 1290 PRINT:PRINT"PAGE ";INT(RND(1)*1000);:PRINT" IN CODE BOOK ";B$;" IS"
  149. 1300 PRINT"STILL OPERATIVE AS IN PRIMARY DIRECTIVES."
  150. 1310 FORX=1TO1000:NEXTX:RETURN
  151. 1320 REM  DESTRUCT!
  152. 1330 PRINTCHR$(12)
  153. 1340 PRINTSPC(18)"NORAD":PRINT:PRINTSPC(13)"**CODE ACCEPT**"
  154. 1345 FORTK=1TO5000:NEXT
  155. 1349 Z=0
  156. 1350 PRINT:PRINT:PRINT"A";;:GOSUB35100:PRINT;"U";;:GOSUB35100:PRINT;"T";;:GOSUB35100:PRINT;"H";;:GOSUB35100:PRINT;"O";;:GOSUB35100:PRINT;"R";
  157. 1360 PRINT;:GOSUB35100:PRINT"I";:GOSUB35100:PRINT"Z";:GOSUB35100:PRINT"A";:GOSUB35100:PRINT"T";:GOSUB35100:PRINT"I";:GOSUB35100:PRINT"O";:GOSUB35100:PRINT"N";:GOSUB35100:PRINT" ";
  158. 1370 PRINT"A";:GOSUB35100:PRINT"C";:GOSUB35100:PRINT"C";:GOSUB35100:PRINT"E";:GOSUB35100:PRINT"PTED"
  159. 1371 GOSUB35100:GOSUB35100:GOSUB35100:GOSUB35100:GOSUB35100:GOSUB35100:GOSUB35100
  160. 1372 FORX=1TO1200:NEXT
  161. 1375 PRINT"[147]"
  162. 1380 PRINT:PRINT:PRINT:PRINT:PRINT"YOUR AUTHORIZATION HAS BEEN ACCEPTED.
  163. 1390 [153]:[153]"YOU ARE NOW ACCESSED TO THE DEFCON":[153]"ALERT SECTOR"
  164. 1400 [153]:[153]"LOCAL OVERRIDE HAS BEEN DISCONNECTED.":[153]"NOW ON COMMAND ALERT.
  165. 1403 INPUT"WHICH DEFCON STATUS (1-5)";AM
  166. 1404 IFAM<1ORAM>5THENAM=0:GOTO1403
  167. 1405 IFAM=1THENGOSUB1415:GOTO1440
  168. 1406 IFAM=2THENGOSUB1415:GOTO1500
  169. 1407 IFAM=3THENGOSUB1415:GOTO1550
  170. 1408 IFAM=4THENGOSUB1415:GOTO1600
  171. 1409 IFAM=5THENGOSUB1415:GOTO1650
  172. 1410 GOTO1403
  173. 1415 FORJL=1TO5000:NEXT:PRINT"[147]"
  174. 1418 FORLG=1TO3
  175. 1420 GOSUB35000:NEXT:PRINT:PRINT:PRINT:PRINT"DEFCON";AM;"..............NOW ACTIVATED.
  176. 1430 [153]"SYSCAUTION....PROTECTION OVERRIDES HAVE":[153]"BEEN DEACTIVATED"
  177. 1435 [129]JL[178]1[164]5000:[130]:[142]
  178. 1440 [153]:[153]:[153]"YOU ARE NOW IN DEFCON 1 ALERT.
  179. 1443 FORYZ=1TO5000:NEXT
  180. 1445 PRINT:FORAN=15TO1STEP-1:GOSUB35100
  181. 1446 IFAN=0THEN1460
  182. 1450 PRINT:PRINT:PRINT"[147]ALL ICBM'S HAVE BEEN ARMED AND
  183. 1455 [153]"ACTIVATED. YOU HAVE";AN;"MINUTES TO CANCEL":[153]:[129]YU[178]1[164]10200
  184. 1456 [161]RT$
  185. 1457 [139]RT$[178]"GOTO"[167]1800
  186. 1458 [130]:[130]
  187. 1459 B[178]0:[153]"LOAD"
  188. 1460 [153]"":[153]:[153]"ALL ICBM'S HAVE BEEN LAUNCHED.":[141]35000
  189. 1463 [153]"":[153]:[153]"                              ":[141]35000
  190. 1465 B[178]B[170]1:[139]B[178]10[167][153]"LOAD":[137]1470
  191. 1467 [137]1460
  192. 1470 [129]TJ[178]15[164]1[169][171]1:[141]35100
  193. 1480 [153]:[153]:[153]"LOADYOU HAVE";TJ;"MINUTES TO SEEK SHELTER.
  194. 1490 FORKB=1TO59000:NEXT:NEXT
  195. 1498 PRINT"I HOPE YOU DON'T THINK I WAS SERIOUS!"
  196. 1499 END
  197. 1500 PRINT"[147]ALL ICBM'S ON STANDBY ALERT.
  198. 1510 [153]"ALL AIR FORCE BASES ALERTED.
  199. 1515 PRINT"PLEASE INSURE CORRECT CODE ENTRY.
  200. 1520 [153]"IF CODE ENTRY IS INCORRECT, IT WILL
  201. 1525 PRINT"CAUSE TOTAL LAUNCH.
  202. 1530 [153]:[153]"CODE ANALYSIS LOCATED IN GREEN 7."
  203. 1540 [133]"IS CODE CORRECT?";YV$
  204. 1541 [139]YV$[178]"YES"[167]AM[178]1:[137]1404
  205. 1542 [139]YV$[178]"NO"[167][153]"LOADALL LAUNCH CODES DEACTIVATED.":[137]1544
  206. 1543 [139]YV$[179][177]"YES"[175]YV$[179][177]"NO"[167]1515
  207. 1544 [153]:[153]"ALERT STANDBY CANCELED.
  208. 1545 PRINT:PRINT"TERMINAL DISCONNECTED.
  209. 1546 [129]XB[178]1[164]10000:[130]
  210. 1547 [153]"LOADSTOP";:[128]
  211. 1550 [153]"OPENACCESS TO THIS COMPUTER IS MONITORED.
  212. 1555 PRINT"IF YOUR ACCESS IS ILLEGAL, DISCONNECT
  213. 1560 [153]"AT THIS TIME.
  214. 1570 FORTY=1TO5000:NEXT
  215. 1575 PRINT:PRINT:PRINT"[149][147]THIS CODE IS NOW ACCEPTED."
  216. 1580 PRINT"[154]SCRAMBLE ALERT NOW ACTIVE.
  217. 1582 [129]TY[178]1[164]10000:[130]
  218. 1585 [153]:[153]"AIRCRAFT LAUNCHED. CODE BLUE ACTIVATED.":[129]Y[178]1[164]3500:[130]
  219. 1590 [153]"LOADPRINT#SOVIET LAUNCH DETECTED.
  220. 1592 PRINT:PRINT"MISSLE BASES ALERTED. CODE RED!
  221. 1593 [129]TY[178]1[164]7000:[130]
  222. 1594 [153]"LOAD":[153]:[153]"LAUNCH SEQUENCE"
  223. 1596 [153]"CLRDEFCON STATUS CHANGED.
  224. 1598 PRINT"DEACTIVATE TERMINAL.  TRACER DETECTED.":FORX=1TO8000:NEXT
  225. 1599 PRINT:PRINT:PRINT:PRINT"TERMINAL DISCONNECTED":FORTY=1TO4000:NEXT:PRINT"[147][144]":GOTO1498
  226. 1600 PRINT"[147]"
  227. 1605 PRINT"DEFCON FOUR NOW IN EFFECT.
  228. 1610 [133]"ENTER DEACTIVATION CODE.";TP$
  229. 1615 [139]TP$[179][177]"RETURN"[167]1900
  230. 1620 [153]"LOAD":[153]:[153]"ACCESS NOW LIMITED. ONLY GENERAL STAFF
  231. 1625 PRINT"HAVE ACCESS AT THIS TIME.
  232. 1630 [153]:[153]"RADAR REPORTS LAUNCH DETECTED IN
  233. 1635 PRINT"SOVIET SECTOR.
  234. 1640 [153]"IS THIS SITUATION CONFIRMED?"
  235. 1645 [133]"CONFIDENCE IS HIGH";TL$
  236. 1646 [139]TL$[179][177]"YES"[167][153]"LOAD":[137]1498
  237. 1647 AM[178]1
  238. 1648 [153]"LOAD"
  239. 1649 [137]1404
  240. 1650 [153]"LOAD"
  241. 1655 [153]:[153]:[153]:[153]"DEFCON STATUS SHOWS SECURE.
  242. 1660 PRINT:PRINT"CODES NOW CHANGED.  AFFECT NEW TABLES.
  243. 1665 [129]TY[178]1[164]10000:[130]
  244. 1670 [153]"YOUR AUTHORIZATION CONFIRMED--
  245. 1675 PRINT"ACCESS CODES INVALID.
  246. 1680 [153]:[153]:[153]"ENTER NEW CODE
  247. 1685 PRINT"PLEASE==>";
  248. 1686 GETA$
  249. 1687 FORX=1TO6
  250. 1688 GOSUB450
  251. 1689 NEXT
  252. 1690 PRINT"CODE INVALID--INTRUDER ALERT!
  253. 1693 [129]TR[178]1[164]8
  254. 1695 [141]35000:[130]
  255. 1697 AM[178]1
  256. 1698 [153]"LOAD"
  257. 1699 [137]1440
  258. 1800 [153]"LOADCLRCANCELATION RECORDED:  ONE MOMENT PLEASE
  259. 1810 FORLP=1TO10000:NEXT
  260. 1820 PRINT:PRINT"CANCELATION CODE INVALID: DESTRUCT
  261. 1825 [153]:[153]:[153]"SEQUENCE ACTIVATED.  LOCAL POLICE
  262. 1830 PRINT"HAVE BEEN NOTIFIED.
  263. 1840 [129]TY[178]1[164]5000:[130]
  264. 1900 [137]1647
  265. 35000 [151]54296,15:[151]54273,5:[143] "WRONG" BUZZER
  266. 35010 [151]54277,0:[151]54278,240:[151]54276,33:[129]T[178]1[164]500:[130]:[151]54276,32:[137]35400
  267. 35100 [151]54296,15:[151]54273,40:[143] "RIGHT" DING
  268. 35110 [151]54277,9:[151]54278,0:[151]54276,17:[129]T[178]1[164]50[170]Z:[130]:[151]54276,16:[137]35400
  269. 35350 [129]J[178]1[164]2:[151]54296,15:[151]54277,16:[151]54278,240:[143] "ATTENTION" SIREN
  270. 35360 [151]54275,8:[151]54273,26:[151]54272,156:[151]54276,65:[129]T[178]1[164]128:[130]
  271. 35370 [151]54276,64:[151]54273,18:[151]54272,209:[151]54276,65:[129]T[178]1[164]128:[130]
  272. 35380 [151]54276,64:[151]54273,26:[151]54272,156:[151]54276,65:[129]T[178]1[164]128:[130]
  273. 35390 [151]54276,64:[151]54273,18:[151]54272,209:[151]54276,65:[129]T[178]1[164]128:[130]
  274. 35395 [151]54276,64:[130]
  275. 35400 [129]T[178]54272[164]54296:[151]T,0:[130]:[142]
  276.